home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 April / EnigmA AMIGA RUN 06 (1996)(G.R. Edizioni)(IT)[!][issue 1996-04][Skylink CD V].iso / progs / editor / write-ed / rexx / newconfig.wrx < prev    next >
Text File  |  1995-06-23  |  2KB  |  109 lines
  1. /*
  2.  * WRITE V4.85 © 1991-1995 by Tim Teulings
  3.  *
  4.  * Dieses Skript öffnet eine Filerequester, in dem
  5.  * alle Konfigurationen gezeigt werden.
  6.  * Wird eine Konfiguration selektiert, so wird
  7.  * diese als neue Konfiguration des aktuellen
  8.  * Fensters gewählt.
  9.  *
  10.  * $VER: 1.0 initial Tim Teulings
  11.  *
  12.  */
  13.  
  14. /* Addrssieren des AREXX-Ports */
  15.  
  16. if ~show('P',"WRITE") then
  17. do
  18.   say "Dieses Skript arbeitet nicht ohne den Texteditor WRITE!"
  19.   exit 0
  20. end
  21.  
  22. ADDRESS "WRITE"
  23.  
  24. OPTIONS RESULTS
  25. SIGNAL ON SYNTAX /* Abfangen von Syntaxfehlern */
  26.  
  27. /**********************************/
  28. /* Kontrolle ob Script kompatibel */
  29. /**********************************/
  30.  
  31. 'VERSIONCHECK 40000 "NewConfig.wrx"'
  32. IF RC~=0 THEN DO
  33.   exit 10
  34. END
  35.  
  36. /********************************************************/
  37. /* Alternative : Locken des aktuellen, aktiven Fensters */
  38. /********************************************************/
  39.  
  40.  
  41. 'GETVAR "_CurrentID"'
  42. ID = RESULT           /* GETVAR gibt den ID des aktuellen Fenster zurück,  */
  43.                       /* der von den weiteren Befehlen benötigt wird.      */
  44.  
  45. IF ID=0 THEN DO
  46.   'MESSAGEOK "Kein Fenster aktiviert!"'
  47.   EXIT
  48. END
  49.  
  50. OPENPORT ID           /* PrivatePort des aktuellen Fensters öffnen        */
  51. Port = RESULT
  52.  
  53. IF Port="" THEN DO    /* 'OPENPORT' gibt "" zurück, wenn Port nicht       */
  54.                       /* geöffnet werden konnte                           */
  55.  
  56.   LOCKWINDOW ID
  57. END
  58. ELSE DO
  59.   INTERPRET ADDRESS Port  /* PrivatePort addressieren.Alle Komandos beziehen */
  60.                           /* sich nun auf das Fenster mit diesem Port        */
  61. END
  62.  
  63.  
  64. /*********************************************/
  65. /* Hier folgt das eigendliche AREXX-Programm */
  66. /*********************************************/
  67.  
  68. 'GETFILE "$_WRITEPATH$config/" "#?.config"'
  69. Vollpath = RESULT
  70.  
  71. 'GETVAR "_WRITEPATH"'
  72. Path = RESULT || "config/"
  73.  
  74. Config = DELSTR(VollPath,1,LENGTH(Path))
  75.  
  76. 'CHANGECONFIG "&Config&"'
  77.  
  78. /*********************************************/
  79. /* Schließen des Ports/Unlocken des Fensters */
  80. /*********************************************/
  81.  
  82. IF Port="" THEN DO
  83.   LOCKWINDOW 0
  84. END
  85. ELSE DO
  86.   CLOSEPORT ID
  87. END
  88.  
  89. EXIT
  90.  
  91.  
  92. /********/
  93. /* Ende */
  94. /********/
  95.  
  96.  
  97. SYNTAX:
  98.  
  99. SAY "Leider trat ein Fehler auf... Zeile : " SIGL ":" ERRORTEXT(RC)
  100.  
  101. IF Port="" THEN DO
  102.   LOCKWINDOW 0
  103. END
  104. ELSE DO
  105.   CLOSEPORT ID
  106. END
  107.  
  108. EXIT
  109.